home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Graphics / TVPaint / Rexx / plik.rx < prev    next >
Encoding:
Text File  |  1995-11-07  |  477 b   |  35 lines
  1. /*    param Single    */
  2.  
  3. options results
  4.  
  5. address 'rexx_TVPaint'
  6.  
  7.     tv_SetDrawMode Color
  8.     tv_AliasOff
  9.     tv_Pen 1
  10.  
  11. /* lockuser command to avoid dirty spots under the mouse */
  12.  
  13.     tv_lockuser
  14.     tv_UpdateUndo
  15.  
  16.     parse ARG m x y b
  17.     if(m~='Single')then
  18.     do
  19.         tv_warn 'I need CIRCLE parameters'
  20.         exit
  21.     end
  22.  
  23.     tv_setApen 0 255 255 255
  24.     do i=4 to 32 by 4
  25.         tv_setApen 0 255-i*6 255-i*6 255
  26.         tv_circle x y i 0
  27.         tv_circle x y i-4 1
  28.     end
  29.     tv_circle x y i-4 1
  30.  
  31.     tv_undo
  32.     tv_unlockuser
  33.  
  34.     tv_AliasON
  35.